home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 June / 1987-06.d64 / impatient demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  735b  |  31 lines
  1. 100 poke 53280,6:poke 53281,6:print"[144]":printchr$(147);
  2. 110 col=1:vol=8:ta=10
  3. 200 print"answer in ten seconds -"
  4. 210 print"what make is this computer"
  5. 220 gosub 5000:inputa$:gosub 5100
  6. 230 if flg then 250
  7. 235 if a$="commodore"then print"right, but you forgot to press return.":goto270
  8. 240 print"sorry! you ran out of time.":gosub 5200:goto 270
  9. 250 if a$="commodore" then print"correct! you had";tr;"seconds left.":goto 270
  10. 260 print"wrong!"
  11. 270 end
  12. 5000 rem activate timer
  13. 5010 poke 251,col:poke 252,vol:poke 253,ta
  14. 5020 sys 1020:return
  15. 5100 rem timer off
  16. 5110 sys 65418
  17. 5120 poke 1062,32:poke 1063,32
  18. 5130 tr=1+peek(253)-int(peek(253)/16)*6
  19. 5140 if tr=100 then tr=0
  20. 5150 flg=peek(254):return
  21. 5200 s=54272:rem gong
  22. 5210 for l=0to24:poke s+l,0:next
  23. 5220 poke s+1,130:poke s+5,9
  24. 5230 poke s+15,30:poke s+24,vol
  25. 5240 poke s+4,21
  26. 5250 for t=1to300:next
  27. 5260 poke s+4,20
  28. 5270 for t=1to500:next
  29. 5280 for l=0to24:poke s+l,0:next
  30. 5290 return
  31.